Select MyDay                  ' jeli dzie tygodnia to:
  Case 1                      ' poniedziaek
    TakeHeadacheMedicine()    ' we lekarstwo na bl gowy
  Case 2                      ' wtorek
    GroceryShop()             ' zakupy
  Case 3                      ' roda
    PayBills()                ' zapa rachunki
  Case 4                      ' czwartek
    PayMoreBills()            ' zapa inne rachunki
  Case 5                      ' pitek
    LeagueNight()             ' wieczorem jest mecz
  Case 6                      ' sobota
    Bath()                    ' kpiel
  Case 7                      ' niedziela
    Rest()                    ' wypoczynek
  Case Else  ' pozostae wartoci
    MessageBox.Show(Nieprawidowa warto MyDay)
End Select
